home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1997 February / EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso / progs / sviluppo / pike-0.4.0 / examples / rexxtest.pike next >
Text File  |  1997-01-10  |  379b  |  27 lines
  1. #!/usr/local/bin/pike
  2.  
  3. int
  4. main ()
  5. {
  6.   int t;
  7.  
  8.   if (1)
  9.   {
  10.     arexx_host ("rexx_ced");
  11.     for (t=0; t<10; t++)
  12.     {
  13.       arexx_cmd ("down");
  14.       arexx_cmd ("down");
  15.       arexx_cmd ("down");
  16.       arexx_cmd ("up");
  17.       arexx_cmd ("up");
  18.       arexx_cmd ("up");
  19.     }
  20.   }
  21.   if (1)
  22.   {
  23.     arexx_host ("MULTIVIEW.1");
  24.     arexx_cmd ("open name s:startup-sequence");
  25.   }
  26. }
  27.